From: Glenn Morris <rgm@gnu.org>
Date: Mon, 1 Nov 2010 01:56:28 +0000 (-0700)
Subject: Silence mail-source.el compilation.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~5860
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=46987a4a51603daf591c984fc1dfd18686aebffb;p=emacs.git

Silence mail-source.el compilation.
* lisp/gnus/mail-source.el (nnheader-message, gnus-float-time): Autoload.
(mail-source-delete-crash-box): Use gnus-float-time.
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index fa5d504b132..6c0a4c620cc 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,7 +1,12 @@
 2010-11-01  Glenn Morris  <rgm@gnu.org>
 
+	* mail-source.el (nnheader-message, gnus-float-time): Autoload.
+	(mail-source-delete-crash-box): Use gnus-float-time.
+
 	* gnus-dired.el (gnus-completing-read): Autoload.
+
 	* mm-view.el (gnus-rescale-image): Autoload.
+
 	* mm-decode.el (gnus-completing-read, gnus-blocked-images): Autoload.
 
 	* gnus.el (gnus-sloppily-equal-method-parameters): Move defn before use.
diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el
index 1bd5be74013..137a18f27eb 100644
--- a/lisp/gnus/mail-source.el
+++ b/lisp/gnus/mail-source.el
@@ -501,6 +501,8 @@ See `mail-source-bind'."
    (t
     value)))
 
+(autoload 'nnheader-message "nnheader")
+
 (defun mail-source-fetch (source callback &optional method)
   "Fetch mail from SOURCE and call CALLBACK zero or more times.
 CALLBACK will be called with the name of the file where (some of)
@@ -594,6 +596,8 @@ Deleting old (> %s day(s)) incoming mail file `%s'." diff bfile)
 	0)
     (funcall callback mail-source-crash-box info)))
 
+(autoload 'gnus-float-time "gnus-util")
+
 (defvar mail-source-incoming-last-checked-time nil)
 
 (defun mail-source-delete-crash-box ()
@@ -614,7 +618,7 @@ Deleting old (> %s day(s)) incoming mail file `%s'." diff bfile)
 	  ;; Don't check for old incoming files more than once per day to
 	  ;; save a lot of file accesses.
 	  (when (or (null mail-source-incoming-last-checked-time)
-		    (> (time-to-seconds
+		    (> (gnus-float-time
 			(time-since mail-source-incoming-last-checked-time))
 		       (* 24 60 60)))
 	    (setq mail-source-incoming-last-checked-time (current-time))